home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / Install-FLM < prev    next >
Text File  |  2000-01-01  |  9KB  |  321 lines
  1. ;Install Script for FLM (c) 1995-96 Denis Unger
  2.  
  3. (if (= @language "deutsch")
  4. ; *** German Installation ***
  5.     (
  6.         (set default-lang 1)
  7.         (set #lpath "deutsch")
  8.         (set #flmdestination
  9.             (cat "Bitte Zielverzeichnis von FLM auswählen.\n"
  10.                  "Ein Verzeichnis FLM wird automatisch erstellt."
  11.             )
  12.         )
  13.         (set #copyhothelp3prefs "Kopiere Prefs-Datei für Hothelp ...")
  14.         (set #copyflm_catalog "Kopiere flm.catalog ...")
  15.         (set #copyflmfiles "Kopiere FLM-Dateien ...")
  16.         (set #copyonlinehelp "Kopiere Online-Hilfe ...")
  17.         (set #instmodetext1 "Shareware-Version")
  18.         (set #instmodetext2 "Update für registrierte Nutzer")
  19.         (set #instmodeprompt "Bitte auswählen")
  20.         (set #flmupdate_dest "Bitte FLM-Verzeichnis auswählen")
  21.         (set #mustnotupdate "FLM muß nicht geupdatet werden.")
  22.         (set #noflmfound "FLM befindet sich nicht\nim angegebene Verzeichnis.")
  23.         (set #flmbenchmark "Soll der FLM-Benchmark kopiert werden ?")
  24.         (set #copybenchmark "Kopiere FLM-Benchmark ...")
  25.         (set #flm_cat "Soll der FLM-Kataloger kopiert werden ?")
  26.         (set #copyflm_cat "Kopiere FLM-Kataloger ...")
  27.     )
  28. )
  29. (if (= @language "english")
  30. ; *** English Installation ***
  31.     (
  32.         (set default-lang 2)
  33.         (set #lpath "english")
  34.         (set #flmdestination
  35.             (cat "Please choose destination directory for FLM.\n"
  36.                  "A directory FLM will be created."
  37.             )
  38.         )
  39.         (set #copyflm_catalog "Copying flm.catalog ...")
  40.         (set #copyflmfiles "Copying FLM file ...")
  41.         (set #copyonlinehelp "Copying Online help ...")
  42.         (set #instmodetext1 "Shareware version")
  43.         (set #instmodetext2 "Update for registered user")
  44.         (set #instmodeprompt "Please select")
  45.         (set #flmupdate_dest "Please select FLM directory")
  46.         (set #mustnotupdate "You must not update FLM")
  47.         (set #noflmfound "Cannot find the program FLM")
  48.         (set #flmbenchmark "Should the FLM benchmark be copied ?")
  49.         (set #copybenchmark "Copying FLM-Benchmark ...")
  50.         (set #flm_cat "Should the FLM cataloger be copied ?")
  51.         (set #copyflm_cat "Copying FLM cataloger ...")
  52.      )
  53. )
  54. (if (= @language "français")
  55. ; *** French Installation ***
  56.     (
  57.         (set default-lang 3)
  58.         (set #lpath "français")
  59.         (set #flmdestination
  60.             (cat "Choisissez le répertoire destination de FLM.\n"
  61.                  "Création du répertoire FLM..."
  62.             )
  63.         )
  64.         (set #copyflm_catalog "Copie de flm.catalog ...")
  65.         (set #copyflmfiles "Copie des fichiers FLM ...")
  66.         (set #copyonlinehelp "Copie de l'Aide en ligne ...")
  67.         (set #instmodetext1 "Version shareware")
  68.         (set #instmodetext2 "MàJ pour utilisateur enregistré")
  69.         (set #instmodeprompt "Sélectionnez svp")
  70.         (set #flmupdate_dest "Sélectionnez svp répertoire FLM")
  71.         (set #mustnotupdate "Il ne faut pas mettre à jour FLM")
  72.         (set #noflmfound "Impossible trouver le programme FLM")
  73.         (set #flmbenchmark "Should the FLM benchmark be copied ?")
  74.         (set #copybenchmark "Copie des fichiers FLM-Benchmark ...")
  75.         (set #flm_cat "Should the FLM cataloger be copied ?")
  76.         (set #copyflm_cat "Copie des FLM cataloger ...")
  77.     )
  78. )
  79. ; *** all string ok
  80.  
  81. ; *******************************
  82. ; *** now installation of FLM ***
  83. ; *******************************
  84.  
  85. ; *** get workbench version ****
  86. (set vernum (getversion "libs:version.library"))
  87. (set wbver (/ vernum 65536))
  88.  
  89. (complete 0)
  90.  
  91. ; *** shareware version or only update
  92. ; if script for registration then (set instmode 0)
  93. (set instmode
  94.     (askchoice
  95.         (choices #instmodetext1 #instmodetext2)
  96.         (prompt #instmodeprompt)
  97.         (help "")
  98.     )
  99. )
  100.  
  101. (if (= instmode 0)
  102.     ( ; *** Shareware-Version ***
  103.         (set flm-path
  104.             (askdir
  105.                 (prompt #flmdestination)
  106.                 (help "")
  107.                 (default @default-dest)
  108.             )
  109.          )
  110.          (set @default-dest (tackon flm-path "FLM"))
  111.  
  112.         ; *** create FLM directory
  113.         (makedir
  114.             (@default-dest)
  115.             (infos)
  116.         )
  117.         ; *** now a directory FLM exists ***
  118.  
  119.         (complete 10)
  120.  
  121.         ; *** copy catalogs ...
  122.         (if (> wbver 37)
  123.             (copylib
  124.                 (prompt #copyhothelplib_catalog)
  125.                 (help "")
  126.                 (source (cat "locale/catalogs/" #lpath))
  127.                 (dest (cat "locale:catalogs/" #lpath))
  128.                 (confirm)
  129.             )
  130.         )
  131.         (complete 20)
  132.  
  133.         (copyfiles
  134.             (prompt #copyflmfiles)
  135.             (help "")
  136.             (all)
  137.             (source "FLM")
  138.             (dest @default-dest)
  139.         )
  140.         (complete 40)
  141.  
  142.         (copyfiles
  143.             (prompt #copyflmfiles)
  144.             (help "")
  145.             (all)
  146.             (source (cat "otherfiles/" #lpath))
  147.             (dest @default-dest)
  148.         )
  149.         (complete 60)
  150.  
  151.         ; *** Online-Help ***
  152.         (copyfiles
  153.             (prompt #copyonlinehelp)
  154.             (help "")
  155.             (all)
  156.             (source (cat "Docs/" #lpath))
  157.             (dest @default-dest)
  158.         )
  159.         (complete 80)
  160.  
  161.         (set ret
  162.             (askbool
  163.                 (prompt #flmbenchmark)
  164.                 (help "")
  165.             )
  166.         )
  167.         (if (= ret 1)
  168.             (
  169.             (makedir
  170.                 (cat @default-dest "/Benchmark")
  171.                 (infos)
  172.             )
  173.             (copyfiles
  174.                 (prompt #copybenchmark)
  175.                 (help "")
  176.                 (all)
  177.                 (source "Benchmark")
  178.                 (dest (cat @default-dest "/Benchmark"))
  179.             )
  180.             )
  181.         )
  182.  
  183.         (complete 90)
  184.  
  185.         (set ret
  186.             (askbool
  187.                 (prompt #flm_cat)
  188.                 (help "")
  189.             )
  190.         )
  191.         (if (= ret 1)
  192.             (
  193.             (makedir
  194.                 (cat @default-dest "/FLM_cat")
  195.                 (infos)
  196.             )
  197.             (copyfiles
  198.                 (prompt #copyflm_cat)
  199.                 (help "")
  200.                 (all)
  201.                 (source "FLM_cat")
  202.                 (dest (cat @default-dest "/FLM_cat"))
  203.             )
  204.             )
  205.         )
  206.  
  207.         (complete 100)
  208.     )
  209.     ( ;****** update ******
  210.  
  211.         (set flm-path
  212.             (askdir
  213.                 (prompt #flmupdate_dest)
  214.                 (help "")
  215.                 (default @default-dest)
  216.             )
  217.         )
  218.         (set @default-dest flm-path)
  219.  
  220.         ; *** existiert FLM im angegebenen Verzeichnis ? ***
  221.         (set test (exists (tackon @default-dest "FLM")))
  222.  
  223.         (if (= test 1)
  224.             ( ; *** FLM - Version ermitteln
  225.                 (set test (getversion (tackon @default-dest "FLM")))
  226.                 (set flmoldver1 (/ test 65536))
  227.                 (set flmoldver2 (- test (* flmoldver1 65536)))
  228.             )
  229.             ( ; *** FLM wurde nicht gefunden ***
  230.                 (message #noflmfound)
  231.                 (exit)
  232.             )
  233.         )
  234.  
  235.         (set test (getversion "FLM/FLM"))
  236.         (set flmnewver1 (/ test 65536))
  237.         (set flmnewver2 (- test (* flmnewver1 65536)))
  238.  
  239. ; *** DEBUG für Updateüberprüfung ... ***
  240. ;(message "FLMnewver " flmnewver1 "." flmnewver2 "FLMoldver " flmoldver1 "." flmoldver2)
  241.  
  242.         (set updateflm 0) ; *** default: FLM nicht update ***
  243.  
  244.         (if (> flmnewver2 flmoldver2)
  245.             (
  246.                 (if (< flmnewver1 flmoldver1)
  247.                     ; *** FLM nicht updaten ***
  248.                     (set updateflm 0)
  249.                     ; *** FLM updaten ***
  250.                     (set updateflm 1)
  251.                 )
  252.             )
  253.             (
  254.                 (if (> flmnewver1 flmoldver1)
  255.                     (set updateflm 1)
  256.                 )
  257.             )
  258.         )
  259.  
  260.         (if (= updateflm 0)
  261.             ( ; *** Update nicht nötig, da neuere oder gleich Version
  262.                 (message #mustnotupdate)
  263.                 (exit)
  264.             )
  265.         )
  266.  
  267.         ; *** Online-Help ***
  268.         (copyfiles
  269.             (prompt #copyonlinehelp)
  270.             (help "")
  271.             (all)
  272.             (source (cat "Docs/" #lpath))
  273.             (dest @default-dest)
  274.         )
  275.         (complete 20)
  276.  
  277.         ; *** copy catalogs ***
  278.         (if (> wbver 37)
  279.             (copylib
  280.                 (prompt #copyflm_catalog)
  281.                 (help "")
  282.                 (source (cat "locale/catalogs/" #lpath))
  283.                 (dest (cat "locale:catalogs/" #lpath))
  284.                 (confirm)
  285.             )
  286.         )
  287.         (complete 30)
  288.  
  289.         ; *** FLMr-Verzeichnis kopieren ***
  290.         (copyfiles
  291.             (prompt #copyflmfiles)
  292.             (help "")
  293.             (source "FLM/FLMconv")
  294.             (dest @default-dest)
  295.         )
  296.         (complete 50)
  297.  
  298.         ; *** FLM kopieren ***
  299.         (copyfiles
  300.             (prompt #copyflmfiles)
  301.             (help "")
  302.             (source "FLM/FLM")
  303.             (dest @default-dest)
  304.         )
  305.         (complete 70)
  306.  
  307.         ; *** FLMc kopieren ***
  308.         (copyfiles
  309.             (prompt #copyflmfiles)
  310.             (help "")
  311.             (source "FLM/FLMc")
  312.             (dest @default-dest)
  313.         )
  314.         (complete 100)
  315.  
  316.     )
  317. )
  318.  
  319. ; *** script erfolgreich beendet
  320. (exit)
  321.